home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
376-400
/
disk_376
/
matrix
/
src
/
pal
/
about.c
< prev
next >
Wrap
Text File
|
1992-05-06
|
3KB
|
75 lines
/********************************************************************/
/**** ****/
/**** ****/
/**** Program : About.c ****/
/**** ****/
/**** Version : 01.00 ****/
/**** ****/
/**** Erstversion : 01.07.1990 ****/
/**** ****/
/**** Letzte Änderung : 08.08.1990 ****/
/**** ****/
/**** Compiliert mit : siehe MAKEFILE ****/
/**** ****/
/**** Gelinkt mit : siehe MAKEFILE ****/
/**** ****/
/********************************************************************/
/**** ****/
/**** ****/
/**** Copyright by Rüdiger Dreier ****/
/**** ****/
/**** ****/
/********************************************************************/
/* Einbinden der Include-Files */
#include <exec/types.h>
#include <string.h>
#include <graphics/gfx.h>
#include <intuition/intuitionbase.h>
#include <graphics/text.h>
struct NewWindow Fenster3=
{
159,70, /* Left/TopEdge */
288,120, /* Width/Height */
3, 2, /* Detail/BlockPen */
MOUSEBUTTONS, /* IDCMP-Flags */
ACTIVATE, /* Flags */
NULL, /* Gadget */
NULL, /* Image */
"«««««««««« A B O U T »»»»»»»»»»", /* Titel */
NULL, /* Screen */
NULL, /* BitMap */
0,0,0,0, /* Limits */
CUSTOMSCREEN /* Type */
};
VOID About(VOID)
{
struct RastPort *RastPort;
struct Window *Window3;
long enable;
if(!(Window3=OpenWindow(&Fenster3)))return;
RastPort=Window3->RPort;
enable=AskSoftStyle(RastPort);
SetSoftStyle(RastPort,FSF_UNDERLINED|FSF_BOLD,enable);
Center(Window3,"Matrix",3,30);
SetSoftStyle(RastPort,FS_NORMAL,enable);
Center(Window3,"zum Lösen lin. Gleichungen",3,50);
Center(Window3,"© by Rüdiger Dreier 1990",2,80);
Center(Window3,"Version 1.00, 05.08.1990",2,95);
Center(Window3,"Dies ist FreeWare",2,110);
Wait(1L<<Window3->UserPort->mp_SigBit);
EventAbfrage(Window3,&msgInfo);
CloseWindow(Window3);
}